(isearch-mode): Maybe make minibuffer frame visible and/or raise it.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index c48c141310adf906a16b1a6550598ef441b5639f..1da6f0d9f65a71b06dd2c86b31a31cebaac6f5a9 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -467,6 +467,14 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
   (setq isearch-window-configuration
        (if isearch-slow-terminal-mode (current-window-configuration) nil))
 
+  ;; Maybe make minibuffer frame visible and/or raise it.
+  (let ((frame (window-frame (minibuffer-window))))
+    (if (not (memq (frame-live-p frame) '(nil t)))
+       (progn
+         (make-frame-visible frame)
+         (if minibuffer-auto-raise
+             (raise-frame frame)))))
+
   (setq        isearch-mode " Isearch")  ;; forward? regexp?
   (force-mode-line-update)